home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
win_utl2
/
pspa370a.zip
/
EXAMPL03.POM
< prev
next >
Wrap
Text File
|
1996-04-26
|
1KB
|
45 lines
;
; Determine where we are. (HdrCntr is null until first match)
;
IF $FLINE[ 1 11] = "-----------" THEN HdrCntr = HdrCntr+
;
; Ignore start of input
;
IGNORE HdrCntr = ""
;
; Wait until fourth line of dashes, then start ignoring
;
IGNORE Finished = "Y"
IF HdrCntr = "4" THEN Finished = "Y"
;
; Accept header lines and IBM boards only
; Note the use of "clustered ACCEPTs" here
;
SET Test = $FLINE[ 46 47]
ACCEPT Test = "IB"
ACCEPT Test = "--"
ACCEPT $FLINE[ 40 47] = "BR BD MA"
;
; Skip slow baud rates
;
IGNORE $FLINE[ 43 44] = "30"
IGNORE $FLINE[ 43 44] = "12"
;
; Skip pay boards
;
IGNORE $FLINE[ 49 ] = "Y"
;
; Skip boards without file transfer
;
IGNORE $FLINE[ 50 ] = "N"
;
; Replace baud rates for modems we can't handshake with, using our v32 modem
;
CHANGE $FLINE " 9H " = " 24 "
CHANGE $FLINE " 9P " = " 24 "
CHANGE $FLINE " 9V " = " 24 "
;
; Output
;
OUTEND |{$FLINE}